home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Development / General / MacMETH3.2.1 Folder / MacMETH3.2.1 Disk 1⁄2 / Examples / XYplane.DEF < prev    next >
Text File  |  1994-03-21  |  278b  |  20 lines
  1. DEFINITION MODULE XYplane;
  2.  
  3.     CONST
  4.         draw = 1;
  5.         erase = 0;
  6.  
  7.     VAR
  8.         H: INTEGER;
  9.         W: INTEGER;
  10.         X: INTEGER;
  11.         Y: INTEGER;
  12.  
  13.     PROCEDURE Clear;
  14.     PROCEDURE Dot (x, y, mode: INTEGER);
  15.     PROCEDURE IsDot (x, y: INTEGER): BOOLEAN;
  16.     PROCEDURE Key (): CHAR;
  17.     PROCEDURE Open;
  18.  
  19. END XYplane.
  20.